home *** CD-ROM | disk | FTP | other *** search
- # @(#) .slip script for xc -- JPRadley 931010
- # @(#) based on original work of Francois Vrona
- assign logname eq $LOGNAME
- if logname neq "root"
- then
- echo "Must be run as root"
- beep
- quit
- fi
- set cis off
- # debug "on" # turn on verbose script reporting
- # tty "off" # don't echo received characters to screen
- # transmit "atS41=5^M" # 30 minute WB inactivity timeout
- dial "456-7890"
- while ! waitfor "CONNECT" 40; do; redial; done
- waitfor "name:"; transmit "ItIsI^M"
- waitfor "word:"; transmit "SecRet^M"
- waitfor ">"; transmit "terminal download^M"
- waitfor ">"; transmit "terminal telnet-transparent^M"
- waitfor ">"; transmit "slip /compress^M"
- waitfor ":"; transmit "ItIsI^M"
- waitfor ":"; transmit "SecRet^M"
- waitfor "compress."
- # add route *after* slattach with sleep!!!!
- shell "(sleep 5;route add default 222.33.444.5 1) &"
- shell "(stty intr '' quit '' kill '';slattach +e +v +m 1500 $MODEM 111.22.333.44 222.33.444.5 38400)"
- # if we get here, the slattach got killed & we are done...
- shell "route delete default 222.33.444.5"
- echo "SLIP CONNECTION TERMINATED!!!!"
- hangup
- beep
- quit
-